DOCUMENT E 



From the following pulldown selectors, please 
select 

a geographic region and a sort method. Then press 
the 'Display Store' button. 

EOA print " | $sortby 

^ A print 11 



$SORTSTATBn"; foreach $t(sort(@STA7E_lS"0){ print " 




"; print«"EOA"; 




EO 



EOA #open(fubar,">-"); #print " 

\n 

\n\n"; 
print " 

$SORTBY in $ SORT STATE 

\n" 

if ($SORTSTATE ne "Select From List") ; 

print " 

Please Select choices from pull downs 
above, and press 'Display Stores 1 



it 



if ($ SORT ST ATE eq "Select From List"); 
print < < " EOTABLETOP " if ($SORTSTATE ne "Select From List"); 



ddress 


City 


Telephone 


InternetEOTABLETOP foreach 
$key(sort(keys(%sdb))) { ($STATE,$ESTABLISHMENT,$ADDRESS,$CITY,$P 
/,$sdb{$key}); if ($ STATE eq SSORTSTATE) { $PHONENUM="N/A" if $ 
$LOC="N/A" if $LOC eq ""; if ($LOC ne "N/A") { $LOC = "$LOC" }; #$-= 

«"EOTABLE"; 


DDRESS 


$CITY| 


$PHONENUM 


$LOC EOTABLE # printf "%-35s%-30s%-20s%-20s%25s\n", # $ESTABLIS 

$CITY, $PHONENUM, $LOC; } } print " 



print " 

\n"; print «"DONE" 

R Z 

DONE print " 



a 



RETAIL STORES NEAR YOU SELECT A LOCATION BELOW 



GEOGRAPHIC REGION SORT METHOD 




From the above pulldown selectors, please specify a geographic 
region and a sort method. Then, press the Display Stores' button. 



0 



EOF if ($Action eq "group") { &ADMINSELECTGROUP; } elsif ($ Action eq "region") 
{ &ADMINSELECTREGION; } elsif ($Action eq "account") { 
&ADMINSELECT ACCOUNT; } elsif (SAction eq "create") { 
&ADMINCREATEACCOUNT; } else { &ADMINSELECTALL; } sub 
ADMINSELECTGROUP { $SelNum = 0; for ($z=0;$z<=$FilesInDatabase;$z++) { if 
(SrGroup eq $Group[$z]) { if (SrSort eq "stat") { $SELECT[$SelNum] = 
"$State[$z]\t$Establishment[$z]\t$Address[$z]\t$City[$z]\t$Phone[$z]\t$WebLoc[$z]\t$ 
Group[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$Act 
WWW[$z]"; } elsif (SrSort eq "esta") { $SELECT[$SelNum] - 

"$Establishment[$z]\t$Address[$z]\t$City[$z]\t$State[$z]\t$Phone[$z]\t$WebLoc[$z]\t$ 
Group[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$Act 
WWW[$z]"; } elsif (SrSort eq "addr") { $SELECT[$SelNum] = 

"$Address[$z]\t$Establishment[$z]\t$City[$z]\t$State[$z]\t$Phone[$z]\t$WebLoc[$z]\t$ 
Group[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$Act 
WWW[$z]"; } elsif (SrSort eq "city") { $SELECT[$SelNum] = 

"$City[$z]\t$Establishment[$z]\t$Address[$z]\t$State[$z]\t$Phone[$z]\t$WebLoc[$z]\t$ 
Group[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$Act 
WWW[$z]"; } elsif (SrSort eq "grou") { $SELECT[$SelNum] = 

"$Group[$z]\t$Establishment[$z]\t$Address[$z]\t$City[$z]\t$State[$z]\t$Phone[$z]\t$W 
ebLoc[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$ActW 
WW[$z]"; } $SelNum++; } } SSelNum = SSelNum - 1; ©SELECT = sort(@SELECT); 

print ""; print " fMARK ENTIRE GR(0UP ONI "; print ' TMARK ENTIRE GROUP OFF1 
\n"; print " 

\n"; for ($z=0;$z<=$SelNum;$z++) { if (SrSort eq "stat") { 
($sta,$est,$add,$cty,$pho,$www,$grp,$pwd,$acc,$ema,$act,$num,$actww 
w) = split (At/,$SELECT[$z]); } elsif (SrSort eq "esta") { 
($est,$add,$cty,$sta,$pho,$www,$grp,$pwd,$acc,$ema,$act,$num,$actww 
w) = split (At/,$SELECT[$z]); } elsif (SrSort eq "addr") { 
($add,$est3cty,$sta,$pho,$www,$grp,$pwd,$acc,$erna,$act,$num,$actww 
w) = split (At/,$SELECT[$z]); } elsif (SrSort eq "city") { 
(Scty.Ses^Sadd^stajSpho^wwWjSgrpjSpwdjSacc^emajSact^nunijSactww 
w) = split (At/,$SELECT[$z]); } elsif (SrSort eq "grou") { 
(Sgip3est,$add,$cty,$sta3pho,$www,$pwd,$acc,$ema,$act,$num,$actww 
w) = split (At/,$SELECT[$z]); } elsif (SrSort eq "acco") { 
($acc,$est,$add$cty$sta,$pho,$www,$grp,$pwd,$ema$act,$num,$actww 
w) = split (At/,$SELECT[$z]); } $act =~tr/a-z/A-Z/; if (($rlnactive eq 
"hide") and ($act eq "OFF")) { print "\n"; } else { print <$est ideletei 
$add 

$cty, $sta 
$pho 

$www (Sactwww) 



Account Name: $acc [$act] 
Contact Mail: $ema 
Grouped with: $grp 



EOF } } print " 
"; } sub ADMINSELECTREGION { $SelNum = 0; for 

($z=0;$z<=$FilesInDatabase;$z++) { if ($rRegion eq $State[$z]) { if ($rSort eq "stat") { 
$SELECT[$SelNum] = 

"$State[$z]\t$Establishment[$z]\t$Address[$z]\t$City[$z]\t$Phone[$z]\t$WebLoc[$z]\t$ 
Group[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$Act 
WWW[$z]"; } elsif (SrSort eq "esta") { $SELECT[$SelNum] = 

"$Establishment[$z]\t$Address[$z]\t$City[$z]\t$State[$z]\t$Phone[$z]\t$WebLoc[$z]\t$ 
Group[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$Act 
WWW[$z]"; } elsif (SrSort eq "addr") { $SELECT[$SelNum] = 

"$Address[$z]\t$Establishment[$z]\t$City[$z]\t$State[$z]\t$Phone[$z]\t$WebLoc[$z]\t$ 
Group[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$Act 
WWW[$z]"; } elsif (SrSort eq "city") { $SELECT[$SelNum] = 

"$City[$z]\t$Establishment[$z]\t$Address[$z]\t$State[$z]\t$Phone[$z]\t$WebLoc[$z]\t$ 
Group[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$Act 
WWW[$z]"; } elsif (SrSort eq "grou") { $S ELECT [SSelNum] = 

"$Group[$z]\t$Establishment[$z]\t$Address[$z]\t$City[$z]\t$State[$z]\t$Phone[$z]\t$W 
ebLoc[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$ActW 
WW[$z]"; } $SelNum++; } } SSelNum = SSelNum - 1; ©SELECT = sort(@SELECT); 
print " 

\n"; for ($z=0;$z<=$SelNum;$z++) { if (SrSort eq "stat") { 

($sta,$est,$add,$cty,$pho,$ww,$grp,$pwd,$acc,$emaiact,$num3actwww) = split 
(At/,$SELECT[$z]); } elsif (SrSort eq "esta") { 

($est,$add,$cty3staipho3www,$grp,$pwd,$acc,$ema,$act,$num,$actwww) = split 
(At/,$SELECT[$z]); } elsif (SrSort eq "addr") { 

($add,$est,$cry,$staipho,$www,$giT3,$pwd3acc,$ema,$act3num,$actwww) = split 
(At/,$SELECT[$z]); } elsif (SrSort eq "city") { 

($cty,$est,$add,$sta,$pho,$www,$gip,$pwd,$acc3ema,$act,$num,$actwww) = split 
(At/,$SELECT[$z]); } elsif (SrSort eq "grou") { 

($gip,$est,$add,$cty3sta,$pho,$www,$pwd,$acc,$ema,$act,$num,$actwww) = split 
(At/,$SELECT[$z]); } elsif (SrSort eq "acco") { 

($acc,$est,$add,$cty,$sta,$pho,$www,$grp,$pwd,$ema,$act,$num,$actwww) = split 
(At/,$SELECT[$z]); } $act =~tr/a-z/A-Z/; if (($rlnactive eq "hide") and ($act eq "OFF")) 
{ print "\n"; } else { print <$est fDELETEi 
$add 

$cty, $sta 
$pho 

$www (Sactwww) 

Account Name: $acc [$act] 
Contact Mail: $ema 
Grouped with: $grp 



EOF } } print " 



} sub ADMINSELECTACCOUNT { $SelEntry = "None"; for 
($z=0;$z<=$FilesInDatabase;$z++) { if (SrAccountName eq $Account[$z]) 
{$SelEntry=$i; last;} } if ($SelEntry eq "None") { print "No account found."; } else { 
print <$EstabIishment[$SelEntryl fdeletei 
$Address[$SelEntry] 
$City[$SelEntry], $State[$SelEntry] 
$Phone[$SelEntry] 

$WebLoc[$SelEntry]($ActWWW[$SelEntry]) 

Account Name: $Account[$SelEntry] [$Active[$SelEntry]] 
Contact Mail: $Email[$Seffintry] 
Grouped with: $Group[$SelEntry] 

EOF } } sub ADMINSELECTALL { $SortNum = $FilesInDatabase; for 
($z=0;$z<=$FilesInDatabase;$z++) { if ($rSort eq "stat") { $SELECT[$z] = 
"$State[$z]\t$Establishment[$z]\t$Address[$z]\t$City[$z]\t$Phone[$z]\t$WebLoc[$z]\t$ 
Group[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$Act 
WWW[$z]"; } elsif (SrSort eq "esta") { $SELECT[$z] = 

"$Establishment[$z]\t$Address[$z]\t$City[$z]\t$State[$z]\t$Phone[$z]\t$WebLoc[$z]\t$ 
Group[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$Act 
WWW[$z]"; } elsif (SrSort eq "addr") { $SELECT[$z] = 

"$Address[$z]\t$Establishment[$z]\t$City[$z]\t$State[$z]\t$Phone[$z]\t$WebLoc[$z]\t$ 
Group[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$Act 
WWW[$z]"; } elsif (SrSort eq "city") { $SELECT[$z] = 

"$City[$z]\t$Establishment[$z]\t$Address[$z]\t$State[$z]\t$Phone[$z]\t$WebLoc[$z]\t$ 
Group[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$Act 
WWW[$z]"; } elsif (SrSort eq "grou") { $SELECT[$z] = 

"$Group[$z]\t$Establishment[$z]\t$Address[$z]\t$City[$z]\t$State[$z]\t$Phone[$z]\t$W 
ebLoc[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$ActW 
WW[$z]"; } } ©SELECT = sort(@SELECT); print " 

\n"; for ($z=0;$z<=$SortNum;$z++) { if (SrSort eq "stat") { 
($sta$est,$add,$cty,$pho,$www,$grp$pwd,$acc,$ema,$act,$num,$actww 
w) = split (At/,$SELECT[$z]); } elsif (SrSort eq "esta") { 
($est3add,$cty,$sta,$pho,$www,$grp,$pwd,$acc,$ema,$act,$num,$actww 
w) = split (At/,$SELECT[$z]); } elsif (SrSort eq "addr") { 
($add,$est,$cty,$sta3pho,$www,$gip,$pwd3acc3ema,$act,$num,$actww 
w) = split (At/,$SELECT[$z]); } elsif (SrSort eq "city") { 
(Scty^estjSaddjSstajSpho.Swww.Sgrp.Spwd^acc.SemajSactjSnunijSactww 
w) = split (At/,$SELECT[$z]); } elsif (SrSort eq "grou") { 
($grp,$est,$add,$cty,$sta,$pho,$www,$pwd,$acc,$ema,$act,$num,$actww 
w) = split (At/,$SELECT[$z]); } elsif (SrSort eq "acco") { 
($acc,$est,$add,$cty,$sta,$pho,$www,$grp,$pwd,$ema,$act,$num,$actww 
w) = split (At/,$SELECT[$z]); } Sact =~tr/a-z/A-Z/; if ((Srlnactive eq 
"hide") and (Sact eq "OFF")) { print "\n"; } else { print < $est fdeletei 
Sadd 



$cty, $sta 
$pho 

$www ($actwww) 

Account Name: $acc [$act] 
Contact Mail: $ema 
Grouped with: $grp 

EOF } } print " 

} sub ADMINCREATEACCOUNT { $UID=0; for ($i=0;$i<=$FilesInDatabase;$i++) 
{ $cpt = $PartNo[$i] + 0; if ($cpt > $UID) { $UID = $cpt; } } $UID++; if (length ($UID) 
eq 1) { $UID = "0000$UID"; } elsif (length ($UID) eq 2) { $UID = "000$UID"; } elsif 
(length ($UID) eq 3) { $UID = "00$UID"; } elsif (length ($UID) eq 4) { $UID = 
M 0$UID ,, ; } print < 



EOF } 



Establishment 
Group 
Address 
City 
State 
Phone 
Website 



Web Link ® QN. ^ OFF. 



Password 
Account Name 



Email 



Account Status ® QN. ^ OFF. 



^Sybrritl 




1; sub HTML { print "Content-type: text/html\n\n"; } sub GETSET { $db = 
Vvar/data/home/derek/www/retailstore.db'; $img = 
'http://www.creek.net/~derek/misc/devbin/img'; $URL = 
'http://www.creek.net/~derek/cgi-bin'; } sub GETFORMDATA { if 
($ENV {'REQUEST JvlETHOD'} eq "GET") { $formData = 

$ENV {'QUERYSTRTNG'} ; } elsif ($ENV{'REQUEST_METHOD'} eq "POST") { 
read(STDIN, SformData, $ENV{'CONTENT_LENGTH'}); } @pairs = split(/&/, 
SformData); foreach $pair (@pairs) { ($name, Svalue) = split(/=/, $pair); $value =~ tr/+/ 
/; Svalue — s/~!/ ~!/g; Svalue =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($l))/eg; 
$FORM{$name} = Svalue; } $SeekBy=$FORM {region}; $SortBy=$FORM{sort}; } sub 
GETDATABASE { Sent = 0; open (DB,") { chomp; ($State[$cnt], $Establishment[$cnt], 
$Address[$cnt], $City[$cnt], $Phone[$cnt], $WebLoc[$cnt], $PartNo[$cnt], 
$Group[$cnt], $Password[$cnt], $Account[$cnt], $Email[$cnt], $Active[$cnt], 
$ActWWW[$cnt]) = split(At/); $cnt++; } close 0; Sent = Sent - 1; SFilesInDatabase = 
Sent; } sub GETACTIVEREGIONS { $reg = 0; for ($i=0;$i<=$FilesInDatabase;$i++) { 
Smatch = "no"; for ($j=0;$j<=$reg;$j++) { if (($State[$i] eq $Regions[$j]) and 
($Active[$i] ne "OFF")) { Smatch = "yes"; } } if ((Smatch eq "no") and ($Active[$i] ne 
"OFF")) { $Regions[$reg] = $State[$i]; $reg++; } } Sreg = Sreg - 1; ©Regions = sort 
(©Regions); } sub GETACTIVEGROUPS { Sreg = 0; for 
($i=0;$i<=$FilesInDatabase;$i++) { Smatch = "no"; for ($j=0;$j<=$reg;$j++) { if 
($Group[$i] eq $Groupings[$j]) { Smatch = "yes"; } } if (Smatch eq "no") { 
$Groupings[$reg] = $Group[$ij; $reg++; } } Sreg = Sreg - 1; SGroupNum = Sreg; 
©Groupings = sort (©Groupings); } sub SORTACTION { $vw = 0; for 
($z=0;$z<=$FilesInDatabase;$z++) { if (($State[$z] eq SSeekBy) and ($Active[$z] ne 
"OFF")) { $ViewSort[$vw] = 

"$WebLoc[$z]\t$Phone[$z]\t$Group[$z]\t$PartNo[$z]\t$ActWWW[$z]"; if (SSortBy eq 
"City") { $ViewSort[$vw] = "$City[$z]\t$Establishment[$z]\t$Address[$z]\t" . 
$ViewSort[$vw]; $vw++; } elsif (SSortBy eq "Address") { $ViewSort[$vw] = 
"$Address[$z]\t$Establishment[$z]\t$City[$z]\t" . $ ViewSort[$vw] ; $vw++; } else { 
$ViewSort[$vw] = ,, $Establishment[$z]\t$Address[$z]\t$City[$z]\t" . $ViewSort[$vw]; 
$vw++; } } } ©ViewSort = sort(@ViewSort); SViewFiles = Svw - 1 ; print " 



\n"; print 
^Estabjishme 
nt\n"; print " 



AlSSiiessl 






w ' i^mtM)imm9Mi» 

r($cty,$est,Sadr,$www,$tel,$grp»$num,Sacw) = split ; 
($est,$adr,Scty,$www,$tel,$grp,$num,$acw) # f * 



Sest 

"; if (Sacw ne 
"OFF") { print 
" swww ": } print 
"\n"; print " 



$adr\n 



$cty\n 



$tel\n"; } print " 



#!/usr/bin/perl require Cliberty_shared.cgi'); &HTML; &GETSET; &GETFORMDATA; 
&GETDATABASE; $EdCGI = , http://wwxreek.net/~derek/cgi-bin/adrnin_rnodify.cgi'; 
$UID = $FORM {id} ; $UNO - "_none"; for ($i=0;$i<=$FilesInDatabase;$i++) { if 
($PartNo[$i] eq $UID) { $UNO = $i; last; } } if ($UNO eq "_none") { print "Not found."; 
die; } else { print < 



Establishment I SEstabiishmeri 



Group 



$Group[$UNO( 



Address Address 



City) $City[$UNO] | 
State I $State[$UNO]| 



Phone 



$Phone[$UNO: 



Website WebLoc 



Web LinkEOF print " < 

Password | SRassword 



Account Name ^Account 



Email | $Email[$UNO] 



Account StatusEOF print " < 




EOF} 



Page 1 of 1 




file://C:\WINDOWS\TEMP\art_usamap.gif 



5/31/03 



j s - load . htm . save 



<HTML> 

<framegeJ !A §QWS=165, *> 



size=no ^rgijjljiSft^lg^^ re 

COLS=*,*> <frameset ROWS=*,*> /head 

ling=no resize=no> <frame NAME=framel SRC= n js-loadl.f|5»| m ggggl 
m" scrolling=no resize=no> <f r ame NAME=frame2 SRC=" js-load2 .ht 

COLS=*,*> </frameset> 
ling=no resize=no> <frame NAME=frame3 SRC=" js-load3 .^iParagSSe 1 
m" scrolling=yes resize=no> <f r ame NAME=frame4 SRC=" js-load4 .ht 
frameset > </frameset> 

</HTML> </frameset> 

</ 



Page 1 



#!/bin/perl # # perl script to track Retail Stores # menu variables @STATES=('Doc', 
•License', 'CD*, 'Disk', 'Tape'); #@CLASSES=('Network', 'BU', 'OS', 'Other', 'Cluster'); 
#@LOCS=('Mediabox', 'Shelf_l', 'Shelf_2', 'ShelfJ', 'Shelf_4'); $SORTBY="Media 
Type"; # program data directories $DATADIR=7opt/HTTPS/WWW/stafMibrary"; 
$LOG="$DATADIR/library.log"; $STAFF=7opt/HTTPS/WWW/staff/staff.txt"; # get 
remote user open(foo,"fmger \@$ENV{'REMOTE_HOST'} |"); while(){ 
if(/( A \S+).*(console).*/){$RUSER=$l} } close foo; 
$RHOST=$ENV{'REMOTE_HOST'}; # set some default variables 
chop($DATE=7usr/bin/date +%rn/%d/%y ); chop($FDATE=7usr/bin/date , ); # process 
QUERY STRING push(@INC,7opt/HTTPS/WWW/cgi"); require 'cgi-lib.pl'; 
&ReadParse(*in); foreach $key(keys(%in)) { if($key eq TITLE) {$TITLE=$in{$key}} 
if($key eq TYPE) {$TYPE=$in {$key} } if($key eq CLASS) {$CLASS=$in{$key}} 
if($key eq PARTNO) {$P ARTNO=$in {$key} } if($key eq 

REVREL) {$REVREL=$in{$key} } if($key eq QUANT) {$QUANT=$in{$key}} if($key 
eq LOC){$LOC=$in{$key}} if($key eq SORTB Y) {$SORTBY=$in{$key} } if($key eq 
SUBM){$SUBM=$in{$key}} if($key eq SUBMS){$SUBMS=$in{$key}} } # item add 
if("$SUBM" eq "Add" || "$SUBM" eq "Edit"){ &get_lock; $SPARTNO="$PARTNO"; 
$SDB="$ {TITLE} ${TYPE} $ {CLASS} $ {PARTNO} $ {REVREL} $ {QUANT} 

$ {LOC}"; &open_db; $db{$SPARTNO}="$SDB"; &write_db; &rel_lock; 
open(logger,"» $LOG");print logger "$RUSER\@$RHOST - Add $URL - 
$FDATE\n";close logger; # link edit }elsif("$SUBM" eq "Delete") { &get_lock; 
$SPARTNO="$PARTNO"; &open_db; delete $db{$SPARTNO}; open(logger,"» 
$LOG");print logger "$RUSER\@$RHOST - modify $SUBM - $FDATE\n";close 
logger; &write_db; &rel_lock; } sub get_lock{ while( -f "$ {D AT ADIR} /.library .LCK" 
){sleep 5} open(foo,"> $ {DAT ADIR} /.library.LCK")||die "Content-type: 
text/html\n\nCan not get lock"; close foo; };# end of get lock sub rel_lock{ unlink 
" $ {DAT ADIR} /. library. LCK" ; };# end of reljock sub open_db{ undef $db; 
open(foo,"$DATADIR/library.db")||die "Content-type: text/html\n\nCan not open data 
file for read"; while(){ chop; 

($TITLE,$TYPE,$CLASS,$PARTNO,$REVREL,$QUANT,$LOC)=split(A /,$_,7); 
$db{$PARTNO} -'$_"; } close foo; };# end of open_db sub write_db{ open(foo,"> 
$DATADIR/library.db")||die "Content-type: text/html\n\nCan not open data file for 
write"; foreach $key(sort(keys(%db))) { print foo "$db{$key}\n"; } close foo; };# end of 
write_db sub sort_by_partno{ foreach $key(sort(keys(%db))) { 

($TITLE,$TYPE,$CLASS,$PARTNO,$REVREL,$QUANT,$LOC)=split(A / , $db {$key 
}); $sdb{$key}="$db{$key}"; } };# end of sort_by_class sub sort_by_class { foreach 
$key(sort(keys(%db))) { 

($TITLE,$TYPE,$CLASS,$PARTNO,$REVREL,$QUANT,$LOC)=split(A / , $db {$key 
}); $1="$ {CLASS} $ {TITLE} $ {PARTNO}"; $sdb{$I}="$db{$key}"; } };# end of 
sort_by_class sub sort by type { foreach $key(sort(keys(%db))) { 

($TITLE,$TYPE,$CLASS,$PARTNO,$REVREL,$QUANT,$LOC)=split(A /,$db{$key 
}); $1="$ {TYPE} $ {TITLE} $ {PARTNO}"; $sdb{$I}="$db{$key}"; } };#endof 
sort_by_type &get_lock; &open_db; &rel_lock; if( "$SORTBY" eq "Media Type" 
){&sort_by_type} elsif( "$SORTBY" eq "Classification" ){&sort_by_class} elsif( 
"SSORTBY" eq "Part No." ){&sort_by_partno}; print«"EOA"; Content-type: text/html 



MC Library 





SSORTBY jHl 




Media Type 


Classifica 
tion 


Title 


Part 
No. 


Rev/Re 

1 1 


Qty 


Locati 
on 


Edit/A 
dd 


EOA print " J 








LJe 

OB 
print " 




\n\n"; 
print " 
\n 
\n"; 
print " 


1 : i 

\n"; 

print«"EOB'"; 




1 




l _i 

\n"; print " | 

t 


1 l\n"; print " 


\n"; print " 


\n" ; print " 



\n"; print " 



\n"; open(library_out,">-"); print " 

\n 

\n"; 

foreach $key (sort (keys (%sdb) )) { 

($TTTLE, $TYPE, $CLASS, $PARTNO, $REVREL, $ QUANT, $LOC) =split (/\ /, $sdb{$key} 

) ; 

write library _out; 

} 



\n"; print " 



print " 



